home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 22 / AACD 22.iso / AACD / Programming / powerd / modules.lha / modules / intuition / intuition.m < prev    next >
Encoding:
Text File  |  2000-06-08  |  11.3 KB  |  590 lines
  1.  
  2. MODULE    'devices/keymap',
  3.             'exec/ports',
  4.             'graphics/clip',
  5.             'graphics/gfx',
  6.             'graphics/rastport',
  7.             'graphics/text',
  8.             'intuition/screens',
  9.             'intuition/sghooks',
  10.             'utility/tagitem'
  11.  
  12. OBJECT Menu
  13.     NextMenu:PTR TO Menu,
  14.     LeftEdge:INT,
  15.     TopEdge:INT,
  16.     Width:INT,
  17.     Height:INT,
  18.     Flags:UWORD,
  19.     MenuName:PTR TO CHAR,
  20.     FirstItem:PTR TO MenuItem,
  21.     JazzX:INT,
  22.     JazzY:INT,
  23.     BeatX:INT,
  24.     BeatY:INT
  25.  
  26. CONST    MENUENABLED=1,
  27.         MIDRAWN=$100
  28.  
  29. OBJECT MenuItem
  30.     NextItem:PTR TO MenuItem,
  31.     LeftEdge:INT,
  32.     TopEdge:INT,
  33.     Width:INT,
  34.     Height:INT,
  35.     Flags:UWORD,
  36.     MutualExclude:LONG,
  37.     ItemFill:LONG,
  38.     SelectFill:LONG,
  39.     Command:CHAR,
  40.     SubItem:PTR TO MenuItem,
  41.     NextSelect:UWORD
  42.  
  43. CONST    CHECKIT=1,
  44.         ITEMTEXT=2,
  45.         COMMSEQ=4,
  46.         MENUTOGGLE=8,
  47.         ITEMENABLED=16,
  48.         HIGHFLAGS=$C0,
  49.         HIGHIMAGE=0,
  50.         HIGHCOMP=$40,
  51.         HIGHBOX=$80,
  52.         HIGHNONE=$C0,
  53.         CHECKED=$100,
  54.         ISDRAWN=$1000,
  55.         HIGHITEM=$2000,
  56.         MENUTOGGLED=$4000
  57.  
  58. OBJECT Requester
  59.     OlderRequest:PTR TO Requester,
  60.     LeftEdge:INT,
  61.     TopEdge:INT,
  62.     Width:INT,
  63.     Height:INT,
  64.     RelLeft:INT,
  65.     RelTop:INT,
  66.     ReqGadget:PTR TO Gadget,
  67.     ReqBorder:PTR TO Border,
  68.     ReqText:PTR TO IntuiText,
  69.     Flags:UWORD,
  70.     BackFill:CHAR,
  71.     ReqLayer:PTR TO Layer,
  72.     ReqPad1[32]:CHAR,
  73.     ImageBMap:PTR TO BitMap,
  74.     RWindow:PTR TO Window,
  75.     ReqImage:PTR TO Image,
  76.     ReqPad2[32]:CHAR
  77.  
  78. CONST    POINTREL=1,
  79.         PREDRAWN=2,
  80.         NOISYREQ=4,
  81.         SIMPLEREQ=16,
  82.         USEREQIMAGE=$20,
  83.         NOREQBACKFILL=$40,
  84.         REQOFFWINDOW=$1000,
  85.         REQACTIVE=$2000,
  86.         SYSREQUEST=$4000,
  87.         DEFERREFRESH=$8000
  88.  
  89. CONST    GD_LEFTEDGE=4
  90.  
  91. OBJECT Gadget
  92.     NextGadget:PTR TO Gadget,
  93.     LeftEdge:INT,
  94.     TopEdge:INT,
  95.     Width:INT,
  96.     Height:INT,
  97.     Flags:UWORD,
  98.     Activation:UWORD,
  99.     GadgetType:UWORD,
  100.     GadgetRender:LONG,
  101.     SelectRender:LONG,
  102.     GadgetText:PTR TO IntuiText,
  103.     MutualExclude:LONG,
  104.     SpecialInfo:LONG,
  105.     GadgetID:UWORD,
  106.     UserData:LONG
  107.  
  108. OBJECT ExtGadget OF Gadget
  109.     MoreFlags:LONG,
  110.     BoundsLeftEdge:INT,
  111.     BoundsTopEdge:INT,
  112.     BoundsWidth:INT,
  113.     BoundsHeight:INT
  114.  
  115. CONST    GFLG_GADGHIGHBITS=3,
  116.         GFLG_GADGHCOMP=0,
  117.         GFLG_GADGHBOX=1,
  118.         GFLG_GADGHIMAGE=2,
  119.         GFLG_GADGHNONE=3,
  120.         GFLG_GADGIMAGE=4,
  121.         GFLG_RELBOTTOM=8,
  122.         GFLG_RELRIGHT=16,
  123.         GFLG_RELWIDTH=$20,
  124.         GFLG_RELHEIGHT=$40,
  125.         GFLG_RELSPECIAL=$4000,
  126.         GFLG_SELECTED=$80,
  127.         GFLG_DISABLED=$100,
  128.         GFLG_LABELMASK=$3000,
  129.         GFLG_LABELITEXT=0,
  130.         GFLG_LABELSTRING=$1000,
  131.         GFLG_LABELIMAGE=$2000,
  132.         GFLG_TABCYCLE=$200,
  133.         GFLG_STRINGEXTEND=$400,
  134.         GFLG_IMAGEDISABLE=$800,
  135.         GFLG_EXTENDED=$8000,
  136.         GACT_RELVERIFY=1,
  137.         GACT_IMMEDIATE=2,
  138.         GACT_ENDGADGET=4,
  139.         GACT_FOLLOWMOUSE=8,
  140.         GACT_RIGHTBORDER=16,
  141.         GACT_LEFTBORDER=$20,
  142.         GACT_TOPBORDER=$40,
  143.         GACT_BOTTOMBORDER=$80,
  144.         GACT_BORDERSNIFF=$8000,
  145.         GACT_TOGGLESELECT=$100,
  146.         GACT_BOOLEXTEND=$2000,
  147.         GACT_STRINGLEFT=0,
  148.         GACT_STRINGCENTER=$200,
  149.         GACT_STRINGRIGHT=$400,
  150.         GACT_LONGINT=$800,
  151.         GACT_ALTKEYMAP=$1000,
  152.         GACT_STRINGEXTEND=$2000,
  153.         GACT_ACTIVEGADGET=$4000,
  154.         GTYP_GADGETTYPE=$FC00,
  155.         GTYP_SYSGADGET=$8000,
  156.         GTYP_SCRGADGET=$4000,
  157.         GTYP_GZZGADGET=$2000,
  158.         GTYP_REQGADGET=$1000,
  159.         GTYP_SIZING=16,
  160.         GTYP_WDRAGGING=$20,
  161.         GTYP_SDRAGGING=$30,
  162.         GTYP_WUPFRONT=$40,
  163.         GTYP_SUPFRONT=$50,
  164.         GTYP_WDOWNBACK=$60,
  165.         GTYP_SDOWNBACK=$70,
  166.         GTYP_CLOSE=$80,
  167.         GTYP_BOOLGADGET=1,
  168.         GTYP_GADGET0002=2,
  169.         GTYP_PROPGADGET=3,
  170.         GTYP_STRGADGET=4,
  171.         GTYP_CUSTOMGADGET=5,
  172.         GTYP_GTYPEMASK=7,
  173.         GTYP_SYSTYPEMASK=$F0,
  174.         GTYP_WDEPTH=$40,
  175.         GTYP_SDEPTH=$50,
  176.         GTYP_WZOOM=$60,
  177.         GTYP_SUNUSED=$70,
  178.         GMORE_BOUNDS=1,
  179.         GMORE_GADGETHELP=2,
  180.         GMORE_SCROLLRASTER=4
  181.  
  182. OBJECT BoolInfo
  183.     Flags:UWORD,
  184.     Mask:PTR TO UWORD,
  185.     Reserved:LONG
  186.  
  187. CONST    BOOLMASK=1
  188.  
  189. OBJECT PropInfo
  190.     Flags:UWORD,
  191.     HorizPot:UWORD,
  192.     VertPot:UWORD,
  193.     HorizBody:UWORD,
  194.     VertBody:UWORD,
  195.     CWidth:UWORD,
  196.     CHeight:UWORD,
  197.     HPotRes:UWORD,
  198.     VPotRes:UWORD,
  199.     LeftBorder:UWORD,
  200.     TopBorder:UWORD
  201.  
  202. CONST    AUTOKNOB=1,
  203.         FREEHORIZ=2,
  204.         FREEVERT=4,
  205.         PROPBORDERLESS=8,
  206.         KNOBHIT=$100,
  207.         PROPNEWLOOK=16,
  208.         KNOBHMIN=6,
  209.         KNOBVMIN=4,
  210.         MAXBODY=$FFFF,
  211.         MAXPOT=$FFFF
  212.  
  213. OBJECT StringInfo
  214.     Buffer:PTR TO CHAR,
  215.     UndoBuffer:PTR TO CHAR,
  216.     BufferPos:INT,
  217.     MaxChars:INT,
  218.     DispPos:INT,
  219.     UnDoPos:INT,
  220.     NumChars:INT,
  221.     DispCount:INT,
  222.     CLeft:INT,
  223.     CTop:INT,
  224.     Extension:PTR TO StringExtend,
  225.     LongInt:LONG,
  226.     AltKeyMap:PTR TO KeyMap
  227.  
  228. OBJECT IntuiText
  229.     FrontPen:CHAR,
  230.     BackPen:CHAR,
  231.     DrawMode:CHAR,
  232.     LeftEdge:INT,
  233.     TopEdge:INT,
  234.     ITextFont:PTR TO TextAttr,
  235.     IText:PTR TO CHAR,
  236.     NextText:PTR TO IntuiText
  237.  
  238. OBJECT Border
  239.     LeftEdge:INT,
  240.     TopEdge:INT,
  241.     FrontPen:CHAR,
  242.     BackPen:CHAR,
  243.     DrawMode:CHAR,
  244.     Count:UBYTE,
  245.     XY:PTR TO INT,
  246.     NextBorder:PTR TO Border
  247.  
  248. CONST    IG_LEFTEDGE=0
  249.  
  250. OBJECT Image
  251.     LeftEdge:INT,
  252.     TopEdge:INT,
  253.     Width:INT,
  254.     Height:INT,
  255.     Depth:INT,
  256.     ImageData:PTR TO UWORD,
  257.     PlanePick:CHAR,
  258.     PlaneOnOff:CHAR,
  259.     NextImage:PTR TO Image
  260.  
  261. OBJECT IntuiMessage
  262.     Execmessage:MN,
  263.     Class:LONG,
  264.     Code:UWORD,
  265.     Qualifier:UWORD,
  266.     IAddress:LONG,
  267.     MouseX:INT,
  268.     MouseY:INT,
  269.     Seconds:LONG,
  270.     Micros:LONG,
  271.     IDCMPWindow:PTR TO Window,
  272.     SpecialLink:PTR TO IntuiMessage
  273.  
  274. OBJECT ExtIntuiMessage
  275.     IntuiMessage:IntuiMessage,
  276.     TabletData:PTR TO TabletData
  277.  
  278. CONST    IDCMP_SIZEVERIFY=1,
  279.         IDCMP_NEWSIZE=2,
  280.         IDCMP_REFRESHWINDOW=4,
  281.         IDCMP_MOUSEBUTTONS=8,
  282.         IDCMP_MOUSEMOVE=16,
  283.         IDCMP_GADGETDOWN=$20,
  284.         IDCMP_GADGETUP=$40,
  285.         IDCMP_REQSET=$80,
  286.         IDCMP_MENUPICK=$100,
  287.         IDCMP_CLOSEWINDOW=$200,
  288.         IDCMP_RAWKEY=$400,
  289.         IDCMP_REQVERIFY=$800,
  290.         IDCMP_REQCLEAR=$1000,
  291.         IDCMP_MENUVERIFY=$2000,
  292.         IDCMP_NEWPREFS=$4000,
  293.         IDCMP_DISKINSERTED=$8000,
  294.         IDCMP_DISKREMOVED=$10000,
  295.         IDCMP_WBENCHMESSAGE=$20000,
  296.         IDCMP_ACTIVEWINDOW=$40000,
  297.         IDCMP_INACTIVEWINDOW=$80000,
  298.         IDCMP_DELTAMOVE=$100000,
  299.         IDCMP_VANILLAKEY=$200000,
  300.         IDCMP_INTUITICKS=$400000,
  301.         IDCMP_IDCMPUPDATE=$800000,
  302.         IDCMP_MENUHELP=$1000000,
  303.         IDCMP_CHANGEWINDOW=$2000000,
  304.         IDCMP_GADGETHELP=$4000000,
  305.         IDCMP_LONELYMESSAGE=$80000000,
  306.         CWCODE_MOVESIZE=0,
  307.         CWCODE_DEPTH=1,
  308.         MENUHOT=1,
  309.         MENUCANCEL=2,
  310.         MENUWAITING=3,
  311.         OKOK=1,
  312.         OKABORT=4,
  313.         OKCANCEL=2,
  314.         WBENCHOPEN=1,
  315.         WBENCHCLOSE=2
  316.  
  317. OBJECT IBox
  318.     Left:INT,
  319.     Top:INT,
  320.     Width:INT,
  321.     Height:INT
  322.  
  323. OBJECT Window
  324.     NextWindow:PTR TO Window,
  325.     LeftEdge:INT,
  326.     TopEdge:INT,
  327.     Width:INT,
  328.     Height:INT,
  329.     MouseY:INT,
  330.     MouseX:INT,
  331.     MinWidth:INT,
  332.     MinHeight:INT,
  333.     MaxWidth:UWORD,
  334.     MaxHeight:UWORD,
  335.     Flags:LONG,
  336.     MenuStrip:PTR TO Menu,
  337.     Title:PTR TO CHAR,
  338.     FirstRequest:PTR TO Requester,
  339.     DMRequest:PTR TO Requester,
  340.     ReqCount:INT,
  341.     WScreen:PTR TO Screen,
  342.     RPort:PTR TO RastPort,
  343.     BorderLeft:CHAR,
  344.     BorderTop:CHAR,
  345.     BorderRight:CHAR,
  346.     BorderBottom:CHAR,
  347.     BorderRPort:PTR TO RastPort,
  348.     FirstGadget:PTR TO Gadget,
  349.     Parent:PTR TO Window,
  350.     Descendant:PTR TO Window,
  351.     Pointer:PTR TO UWORD,
  352.     PtrHeight:CHAR,
  353.     PtrWidth:CHAR,
  354.     XOffset:CHAR,
  355.     YOffset:CHAR,
  356.     IDCMPFlags:LONG,
  357.     UserPort:PTR TO MP,
  358.     WindowPort:PTR TO MP,
  359.     MessageKey:PTR TO IntuiMessage,
  360.     DetailPen:CHAR,
  361.     BlockPen:CHAR,
  362.     CheckMark:PTR TO Image,
  363.     ScreenTitle:PTR TO CHAR,
  364.     GZZMouseX:INT,
  365.     GZZMouseY:INT,
  366.     GZZWidth:INT,
  367.     GZZHeight:INT,
  368.     ExtData:PTR TO CHAR,
  369.     UserData:PTR TO CHAR,
  370.     WLayer:PTR TO Layer,
  371.     IFont:PTR TO TextFont,
  372.     MoreFlags:LONG
  373.  
  374. CONST    WFLG_SIZEGADGET=1,
  375.         WFLG_DRAGBAR=2,
  376.         WFLG_DEPTHGADGET=4,
  377.         WFLG_CLOSEGADGET=8,
  378.         WFLG_SIZEBRIGHT=16,
  379.         WFLG_SIZEBBOTTOM=$20,
  380.         WFLG_REFRESHBITS=$C0,
  381.         WFLG_SMART_REFRESH=0,
  382.         WFLG_SIMPLE_REFRESH=$40,
  383.         WFLG_SUPER_BITMAP=$80,
  384.         WFLG_OTHER_REFRESH=$C0,
  385.         WFLG_BACKDROP=$100,
  386.         WFLG_REPORTMOUSE=$200,
  387.         WFLG_GIMMEZEROZERO=$400,
  388.         WFLG_BORDERLESS=$800,
  389.         WFLG_ACTIVATE=$1000,
  390.         WFLG_RMBTRAP=$10000,
  391.         WFLG_NOCAREREFRESH=$20000,
  392.         WFLG_NW_EXTENDED=$40000,
  393.         WFLG_NEWLOOKMENUS=$200000,
  394.         WFLG_WINDOWACTIVE=$2000,
  395.         WFLG_INREQUEST=$4000,
  396.         WFLG_MENUSTATE=$8000,
  397.         WFLG_WINDOWREFRESH=$1000000,
  398.         WFLG_WBENCHWINDOW=$2000000,
  399.         WFLG_WINDOWTICKED=$4000000,
  400.         WFLG_VISITOR=$8000000,
  401.         WFLG_ZOOMED=$10000000,
  402.         WFLG_HASZOOM=$20000000,
  403.         SUPER_UNUSED=$FCFC0000,
  404.         DEFAULTMOUSEQUEUE=5
  405.  
  406. OBJECT NewWindow|NW
  407.     LeftEdge:INT,
  408.     TopEdge:INT,
  409.     Width:INT,
  410.     Height:INT,
  411.     DetailPen:CHAR,
  412.     BlockPen:CHAR,
  413.     IDCMPFlags:LONG,
  414.     Flags:LONG,
  415.     FirstGadget:PTR TO Gadget,
  416.     Checkmark:PTR TO Image,
  417.     Title:PTR TO CHAR,
  418.     Screen:PTR TO Screen,
  419.     BitMap:PTR TO BitMap,
  420.     MinWidth:INT,
  421.     MinHeight:INT,
  422.     MaxWidth:UWORD,
  423.     MaxHeight:UWORD,
  424.     Type:UWORD
  425.  
  426. OBJECT ExtNewWindow OF NW
  427.     Extension:PTR TO TagItem
  428.  
  429. CONST    WA_Left=$80000064,
  430.         WA_Top=$80000065,
  431.         WA_Width=$80000066,
  432.         WA_Height=$80000067,
  433.         WA_DetailPen=$80000068,
  434.         WA_BlockPen=$80000069,
  435.         WA_IDCMP=$8000006A,
  436.         WA_Flags=$8000006B,
  437.         WA_Gadgets=$8000006C,
  438.         WA_CheckMark=$8000006D,
  439.         WA_Title=$8000006E,
  440.         WA_ScreenTitle=$8000006F,
  441.         WA_CustomScreen=$80000070,
  442.         WA_SuperBitMap=$80000071,
  443.         WA_MinWidth=$80000072,
  444.         WA_MinHeight=$80000073,
  445.         WA_MaxWidth=$80000074,
  446.         WA_MaxHeight=$80000075,
  447.         WA_InnerWidth=$80000076,
  448.         WA_InnerHeight=$80000077,
  449.         WA_PubScreenName=$80000078,
  450.         WA_PubScreen=$80000079,
  451.         WA_PubScreenFallBack=$8000007A,
  452.         WA_WindowName=$8000007B,
  453.         WA_Colors=$8000007C,
  454.         WA_Zoom=$8000007D,
  455.         WA_MouseQueue=$8000007E,
  456.         WA_BackFill=$8000007F,
  457.         WA_RptQueue=$80000080,
  458.         WA_SizeGadget=$80000081,
  459.         WA_DragBar=$80000082,
  460.         WA_DepthGadget=$80000083,
  461.         WA_CloseGadget=$80000084,
  462.         WA_BackDrop=$80000085,
  463.         WA_ReportMouse=$80000086,
  464.         WA_NoCareRefresh=$80000087,
  465.         WA_BorderLess=$80000088,
  466.         WA_Activate=$80000089,
  467.         WA_RMBTrap=$8000008A,
  468.         WA_WBenchWindow=$8000008B,
  469.         WA_SimpleRefresh=$8000008C,
  470.         WA_SmartRefresh=$8000008D,
  471.         WA_SizeBRight=$8000008E,
  472.         WA_SizeBBottom=$8000008F,
  473.         WA_AutoAdjust=$80000090,
  474.         WA_GimmeZeroZero=$80000091,
  475.         WA_MenuHelp=$80000092,
  476.         WA_NewLookMenus=$80000093,
  477.         WA_AmigaKey=$80000094,
  478.         WA_NotifyDepth=$80000095,
  479.         WA_Obsolete=$80000096,
  480.         WA_Pointer=$80000097,
  481.         WA_BusyPointer=$80000098,
  482.         WA_PointerDelay=$80000099,
  483.         WA_TabletMessages=$8000009A,
  484.         WA_HelpGroup=$8000009B,
  485.         WA_HelpGroupWindow=$8000009C,
  486.         HC_GADGETHELP=1
  487.  
  488. OBJECT Remember
  489.     NextRemember:PTR TO Remember,
  490.     RememberSize:LONG,
  491.     Memory:PTR TO CHAR
  492.  
  493. OBJECT ColorSpec
  494.     ColorIndex:INT,
  495.     Red:UWORD,
  496.     Green:UWORD,
  497.     Blue:UWORD
  498.  
  499. OBJECT EasyStruct
  500.     StructSize:LONG,
  501.     Flags:LONG,
  502.     Title:PTR TO CHAR,
  503.     TextFormat:PTR TO CHAR,
  504.     GadgetFormat:PTR TO CHAR
  505.  
  506. #define MENUNUM(n) ((n) & $1F)
  507. #define ITEMNUM(n) (((n)>>5) & $3F)
  508. #define SUBNUM(n)  (((n)>>11) & $1F)
  509.  
  510. #define SHIFTMENU(n) ((n) & $1F)
  511. #define SHIFTITEM(n) (((n) & $3F)<<5)
  512. #define SHIFTSUB(n)  (((n) & $1F)<<11)
  513.  
  514. #define FULLMENUNUM(menu,item,sub) (SHIFTSUB(sub)|SHIFTITEM(item)|SHIFTMENU(menu))
  515.  
  516. #define SRBNUM(n)  (8-((n)>>4))
  517. #define SWBNUM(n)  (8-((n) & $F))
  518. #define SSBNUM(n)  (1+((n)>>4))
  519. #define SPARNUM(n) ((n)>>4)
  520. #define SHAKNUM(n) ((n) & $F)
  521.  
  522. CONST    NOMENU=31,
  523.         NOITEM=$3F,
  524.         NOSUB=31,
  525.         MENUNULL=$FFFF,
  526.         CHECKWIDTH=19,
  527.         COMMWIDTH=27,
  528.         LOWCHECKWIDTH=13,
  529.         LOWCOMMWIDTH=16,
  530.         ALERT_TYPE=$80000000,
  531.         RECOVERY_ALERT=0,
  532.         DEADEND_ALERT=$80000000,
  533.         AUTOFRONTPEN=0,
  534.         AUTOBACKPEN=1,
  535.         AUTODRAWMODE=1,
  536.         AUTOLEFTEDGE=6,
  537.         AUTOTOPEDGE=3,
  538.         AUTOITEXTFONT=0,
  539.         AUTONEXTTEXT=0,
  540.         SELECTUP=$E8,
  541.         SELECTDOWN=$68,
  542.         MENUUP=$E9,
  543.         MENUDOWN=$69,
  544.         MIDDLEUP=$EA,
  545.         MIDDLEDOWN=$6A,
  546.         ALTLEFT=16,
  547.         ALTRIGHT=$20,
  548.         AMIGALEFT=$40,
  549.         AMIGARIGHT=$80,
  550.         AMIGAKEYS=$C0,
  551.         CURSORUP=$4C,
  552.         CURSORLEFT=$4F,
  553.         CURSORRIGHT=$4E,
  554.         CURSORDOWN=$4D,
  555.         KEYCODE_Q=16,
  556.         KEYCODE_Z=$31,
  557.         KEYCODE_X=$32,
  558.         KEYCODE_V=$34,
  559.         KEYCODE_B=$35,
  560.         KEYCODE_N=$36,
  561.         KEYCODE_M=$37,
  562.         KEYCODE_LESS=$38,
  563.         KEYCODE_GREATER=$39,
  564.         TABLETA_Dummy=$8003A000,
  565.         TABLETA_TabletZ=$8003A001,  -> Data for this tag is unsigned INT
  566.         TABLETA_RangeZ=$8003A002,
  567.         TABLETA_AngleX=$8003A003,
  568.         TABLETA_AngleY=$8003A004,
  569.         TABLETA_AngleZ=$8003A005,
  570.         TABLETA_Pressure=$8003A006,
  571.         TABLETA_ButtonBits=$8003A007,
  572.         TABLETA_Inproximity=$8003A008,
  573.         TABLETA_ResolutionX=$8003A009,
  574.         TABLETA_ResolutionY=$8003A00A
  575.  
  576. OBJECT TabletData
  577.     XFraction:UWORD,
  578.     YFraction:UWORD,
  579.     TabletX:LONG,
  580.     TabletY:LONG,
  581.     RangeX:LONG,
  582.     RangeY:LONG,
  583.     TagList:PTR TO TagItem
  584.  
  585. OBJECT TabletHookData
  586.     Screen:PTR TO Screen,
  587.     Width:LONG,
  588.     Height:LONG,
  589.     ScreenChanged:LONG
  590.